home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.0 / Video Toaster v4.0.iso / arexx / cg / rexxlauncher.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-10  |  1KB  |  49 lines
  1. /* RexxLauncher.rexx -- Launches CG Scripts */
  2. /* By Bob Caron © 1994 NewTek, Inc.         */
  3. /* This one just took HOURS to code         */
  4.  
  5. call addlib(CG_AREXX,0)
  6.  
  7. filnam = 'ENV:RLauncher.state'
  8. version = 'RexxLauncher v1.4'
  9.  
  10. if (exists(filnam)) then do
  11.     if (~open(state, filnam, 'R')) then break
  12.     if (readln(state) ~= version) then break
  13.     file=readln(state)
  14.     end
  15.     call close state
  16.  
  17. if file~="" | file="FILE" then do
  18.    if lastpos('/',file,length(file)-1)~=0 then do
  19.       filenam=right(file,(length(file)-lastpos('/',file,length(file)-1)))
  20.       path=left(file,(lastpos('/',file,length(file))-1))
  21.       end
  22.    else do
  23.       filenam=right(file,(length(file)-lastpos(':',file,length(file)-1)))
  24.       path=left(file,(lastpos(':',file,length(file))))
  25.       end
  26.    end
  27. if file="FILE" | file="" then do
  28.    path="Rexx:CG"
  29.    filenam=""
  30.    end
  31.  
  32. script=REQ_FILE("Run Arexx Program",filenam,path)
  33.  
  34. file=script
  35. if (open(state, filnam, 'W')) then do
  36.     call writeln state, version
  37.     call writeln state, file
  38.     call close state
  39. end
  40.  
  41. if exists(script)=0 then do
  42.    call REQ_TELL("Macro not found.")
  43.    exit
  44.    end
  45.  
  46. REXX(script)
  47. exit
  48.  
  49.